home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / terminal / xprcl014.lha / xprcl014 / README < prev    next >
Encoding:
Text File  |  1992-09-28  |  2.0 KB  |  62 lines
  1.  
  2.   This is a XPR that is a derivative of a program written by Wayne Crosbie.
  3. The original program was written for MSDOS machines by Rod Boissinot, 
  4.  
  5. The Setup parameters are:
  6.     
  7.    Y - The current Year.
  8.    O - the offset from UTC.
  9.  
  10.    The library requires AmigaDos 2.04, and makes use of the 'DATE'
  11. CLI command to actually set the date, so it must be on the path.  The
  12. library must be called from a process (Which all XPR hosts are, I just
  13. wanted to mention that to make sure), and can be used from within
  14. a script within any XPR supporting terminal package, even though it
  15. was written for use with Welmat.
  16.  
  17.   Included with the archive is a message that talks about this information
  18. being sent out on a shortwave radio station.  If you do not have access to
  19. a dialup time constant, then you may wish to look into setting up a 300bps
  20. modem to a radio.
  21.  
  22.   Russell McOrmond  rwm@Atronx.OCUnix.On.Ca Net Support:(613) 230-2282(V.32Bis)
  23.   FidoNet 1:163/109 Welmat Help 1:1/139  Current WELMAT 'keeper of sources'.
  24.  
  25.  
  26.   Here is an example WPL script to set your clock.  One should be able
  27. to translate the general idea of what it is doing to a VLT script, or to any
  28. other XPR supporting scripting language.
  29.  
  30.  
  31.  
  32.  ; This is a WPL script used to set the clock according to the
  33.  ; National Research Center's atomic clock.
  34. nrctime:
  35.    setbaud 300
  36.    ModemInit
  37.    SmartSend "|~~ATDT9527729|"
  38.    set state DIALING
  39.    clear event
  40.    GetResponse 45
  41.    Print "GetResponse-Out: $(RC) Event:$(event)\n"
  42.    cmpi $(event) "CONNECT"
  43.    FalseJump nrcout
  44.    set state SESSION
  45.    Print "Connected to NRC - Running Library\n"
  46.  
  47.    ; The year is 1992, and we should subtract 5 hours from UTC
  48.    XprSetup xprclock.library "Y1992,O-5"
  49.    PutLog "[$(line)] $<time> Setup $(XprSetup) RC:$(RC)\n"
  50.  
  51.    ; it doesn't matter if you do a send or receive, it's the same thing
  52.    XprSend ""
  53.    PutLog "[$(line)] $<time> NRC $(RC)\n"
  54.    XprClose
  55.  
  56. nrcout:
  57.    Print "Switching back to 2400bps\n"
  58.    setbaud 2400
  59.    ; now go back to answering the phone.
  60.    jump waitring
  61.  
  62.